Imports CapaDeDatos
Public Class nImputacion
    Dim Imputacion As CapaDeDatos.dImputacion = New CapaDeDatos.dImputacion
    Public Function InsertarImputacion(ByVal Descripcion As String, ByVal Saldo As String) As Boolean
        Return Imputacion.Insertar(Descripcion, Saldo)
    End Function
    Public Function EliminarImputacion(ByVal CodigoImputacion As Integer) As Boolean
        Return Imputacion.Eliminar(CodigoImputacion)
    End Function
    Public Function ListarImputacion(ByVal CodigoImputacion As Integer, ByVal Descripcion As String, ByVal saldo As String) As DataSet
        Return Imputacion.BuscarFiltrado(CodigoImputacion, Descripcion, Saldo)
    End Function
    Public Function ModificarImputacion(ByVal CodigoImputacion As Integer, ByVal Descripcion As String, ByVal Saldo As String) As Boolean
        Return Imputacion.Modificar(CodigoImputacion, Descripcion, Saldo)
    End Function
    Public Function ExisteImputacion(ByVal CodigoImputacion As Integer) As Boolean
        Return Imputacion.Existe(CodigoImputacion)
    End Function
    Public Function MostrarDesc(ByVal CodigoImputacion As Integer) As String
        Return Imputacion.MostrarDescripcion(CodigoImputacion)
    End Function
End Class
